home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / F-French / (c)f1.d64 / budget (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  5KB  |  236 lines
  1. 0 PRINT"[147]":PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
  2. 1 PRINT"***********************************
  3. 2 [153]"*   PROGRAMME DE BUGETISATION     *
  4. 3 PRINT"*   PAR: FRANCE PERRON            *
  5. 4 [153]"*   ASS: MICHEL RICARD            *
  6. 5 PRINT"***********************************
  7. 6 [129]T[178]1[164]2500:[130]
  8. 10 [143] DEF VARIABLES
  9. 20 SZ[178]100:I[178][171]19
  10. 30 R$[178][199](13):TA[178]0
  11. 40 [134] A$(SZ),AE(SZ)
  12. 50 [150][165]RN(X)[178][181](X[172]100[170].5)[173]100
  13. 200 [143] ROUTINE PRINCIPALE
  14. 210 [141]6000
  15. 220 Z$[178]"":[161]Z$:[139]Z$[178]""[167][137]220
  16. 230 [139]Z$[178][199](133)[167]I[178]I[170]20:[141]1000
  17. 235 [139]Z$[178][199](134)[167][141]3000
  18. 240 [139]Z$[178][199](135)[167][141]5000
  19. 245 [139]Z$[178][199](136)[167][141]7000
  20. 250 [139]Z$[178][199](137)[167][141]2000
  21. 255 [139]Z$[178][199](138)[167][141]4000
  22. 260 [139]Z$[178][199](139)[167][141]6000
  23. 265 [139]Z$[178][199](140)[167][141]8000
  24. 270 [139]Z$[178][199](81)[167][141]9000
  25. 275 [139]Z$[178][199](17)[167]I[178]I[171]1:[141]1000
  26. 280 [139]Z$[178][199](145)[167]I[178]I[170]1:[141]1000
  27. 299 [137]220
  28. 300 [143] ACCUMULATION DES TOTAUX
  29. 310 TA[178]0
  30. 320 [129] J[178]1[164]MX
  31. 330 TA[178]TA[170]AE(J)
  32. 340 [130]J
  33. 399 [142]
  34. 400 [143] CHARGEMENT DES FICHIERS
  35. 410 [133]"NOM DU FICHIER";F$
  36. 420 [139]F$[178]"*FIN"[167][141]6000:[142]
  37. 450 [159]1,8,2,"0:"[170]F$[170]"SEQ,READ"
  38. 455 [153]"TROUVEWAITSTOP";F$
  39. 460 [132]1,MX
  40. 470 [129]J[178]1[164]MX
  41. 480 [132]1,Y,A$(J),AE(J)
  42. 490 [130]J
  43. 495 [160]1
  44. 499 [142]
  45. 500 [143] TRI PAR NOM
  46. 505 [139]MX[178]1[167][137]599
  47. 510 [153]"TRIAGEWAIT"
  48. 520 [129]J[178]1[164]MX[171]1
  49. 530 [129]K[178]J[170]1[164]MX
  50. 540 [139]A$(K)[177]A$(J)[167][137]590
  51. 550 SM$[178]A$(K):SM[178]AE(K)
  52. 560 A$(K)[178]A$(J):AE(K)[178]AE(J)
  53. 570 A$(J)[178]SM$:AE(J)[178]SM
  54. 590 [130]K
  55. 595 [130]J
  56. 599 [142]
  57. 1000 [143] AFFICHAGE
  58. 1010 [139](I[179]1)[176](I[177]MX)[167]I[178]1
  59. 1020 [153]"LOAD#"[163]5)"OPENDEPENSESSTOP"[163]26)"CLRMONTANTSTOP"
  60. 1030 [129]J[178]I[164]I[170]19
  61. 1040 [139]J[177]MX[167][153]"":[137]1080
  62. 1050 PR$[178][196](AE(J)[170].001):PR$[178][202](PR$,2,([195](PR$)[171]2))
  63. 1060 [139]AE(J)[178]0[167]PR$[178]"0.00"
  64. 1065 J$[178][202]([196](J),2)
  65. 1070 [153][163]3[171][195](J$))J$;[163]4)A$(J)[163]31[171][195](PR$))PR$
  66. 1080 [130]J
  67. 1090 TA$[178][196](TA[170].001)
  68. 1100 TA$[178][200](TA$,[195](TA$)[171]1)
  69. 1110 [139]TA[178]0[167]TA$[178]"0.00"
  70. 1120 [153]"OPENTOTALSTOP"TA$
  71. 1999 [142]
  72. 2000 [143] AJOUT
  73. 2010 R[178]MX[170]1:N$[178]"":E1$[178]""
  74. 2020 [153]"LOADAJOUTER DES DEPENSES"
  75. 2030 [153]"NO ITEM";R
  76. 2040 [133]"NOM ITEM";N$
  77. 2050 [139]N$[178]"*FIN"[167][137]2999
  78. 2055 [139][195](N$)[177]20[167]N$[178][200](N$,20)
  79. 2060 A$(R)[178]N$
  80. 2070 [133]"MONT. ITEM";E1$
  81. 2080 [139]E1$[178]"*FIN"[167][137]2999
  82. 2085 [139][197](E1$)[178]0[167]AE(R)[178]0:[137]2100
  83. 2090 AE(R)[178][165]RN([197](E1$))
  84. 2095 [139]AE(R)[177]9999.99[167]AE(R)[178]9999.99
  85. 2100 MX[178]MX[170]1
  86. 2110 [137]2010
  87. 2200 MX[178]MX[170]1
  88. 2999 [141]500:[141]300:[141]6000:[142]
  89. 3000 [143] MISE A JOUR
  90. 3010 [153]"LOADMISE A JOUR DES DEPENSES."
  91. 3020 [133]"NO ITEM";P1$
  92. 3025 [139]P1$[178]"*FIN"[167][137]3999
  93. 3026 [139]([197](P1$)[178]0)[176]([197](P1$)[179]1)[167][153]"CLRERREUR A L'ENTREEWAITSTOP":[137]3020
  94. 3027 P[178][181]([197](P1$))
  95. 3030 N$[178]"":E1$[178]""
  96. 3040 [139]P[177]SZ[167][153]"MAX EXCEDE":P[178]SZ:MX[178]P
  97. 3050 [139]P[177]MX[167]MX[178]P
  98. 3060 PR$[178][196](AE(P)[170].001):PR$[178][202](PR$,2,([195](PR$)[171]2))
  99. 3065 [139]AE(P)[178]0[167]PR$[178]"0.00"
  100. 3070 [153]P;[163]4)A$(P)[163]21[171][195](PR$))PR$
  101. 3080 [133]"NOM ITEM";N$
  102. 3090 [139]N$[178]"*FIN"[167][137]3999
  103. 3100 [139]N$[179][177]""[167]A$(P)[178]N$
  104. 3105 [139][195](A$(P))[177]100[167]A$(P)[178][200](A$(P),20)
  105. 3110 [133]"MONTANT";E1$
  106. 3120 [139]E1$[178]"*FIN"[167][137]3999
  107. 3125 [139]E1$[178]""[137]3010
  108. 3130 [139]([197](E1$)[178]0)[175](E1$[179][177]"0")[167][153]"CLRERREUR A L'ENTREEWAITSTOP":[137]3110
  109. 3135 [139][197](E1$)[178]0[167]AE(P)[178]0:[137]3800
  110. 3140 AE(P)[178][165]RN([197](E1$))
  111. 3150 [139]AE(P)[177]9999.99[167]AE(P)[178]9999.99
  112. 3800 [137]3010
  113. 3999 [141]500:[141]300:[141]6000:[142]
  114. 4000 [143] SAUVEGARDE DU FICHIER
  115. 4010 [153]"LOADSAUVER LISTE DEPENSES"
  116. 4020 [133]"NOM FICHIER";F$
  117. 4030 [139]F$[178]"*FIN"[167][141]6000:[142]
  118. 4050 [159]1,8,3,"@0:"[170]F$[170]"SEQ,WRITE"
  119. 4060 [152]1,MX
  120. 4070 [129]J[178]1[164]MX
  121. 4080 [152]1,J;R$;A$(J)R$;AE(J);R$
  122. 4090 [130]J
  123. 4100 [160]1
  124. 4999 [141]6000:[142]
  125. 5000 [143] DESTRUCTION
  126. 5005 DT[178]0:TM[178]0
  127. 5010 [153]"LOADDETRUIRE"
  128. 5020 S1$[178]""
  129. 5030 [133]"DEPART A";S1$
  130. 5040 [139]S1$[178]"*FIN"[167][137]5900
  131. 5050 DS[178][181]([197](S1$))
  132. 5060 S1$[178]""
  133. 5070 [139]DS[178]0[167][153]"CLRERREUR A L'ENTREEWAITSTOP":[137]5020
  134. 5080 S1$[178]""
  135. 5090 [133]"FIN A";S1$
  136. 5100 [139]S1$[178]"*FIN"[167][137]5900
  137. 5110 [139]S1$[178]""[176]S1$[178]"0"[167]DE[178]0:[137]5200
  138. 5120 DE[178][181]([197](S1$))
  139. 5125 [139]DE[177]MX[167]DE[178]MX
  140. 5130 [139]DE[178][177]DS[167][137]5200
  141. 5135 [153]"CLR0 OU NOMBRE PLUS GRAND"
  142. 5140 [153]"QUEWAIT";DE;"CLRREQUIS"
  143. 5150 [137]5080
  144. 5200 [139]DE[178]0[167]DE[178]DS
  145. 5205 TM[178]DE[171]DS[170]1
  146. 5207 DT[178]DT[170]TM
  147. 5210 [129]J[178]DS[164]DE
  148. 5220 A$(J)[178]"SINSINSINSINSINSINSINSINSIN":AE(J)[178]0
  149. 5230 [130]J
  150. 5240 [137]5010
  151. 5900 [141]500
  152. 5910 MX[178]MX[171]DT
  153. 5999 [141]300:[141]6000:[142]
  154. 6000 [143] OPTIONS DU MENU
  155. 6010 [153]"LOADCLROPTIONS:STOP"
  156. 6020 [153]"SYS========STOP"
  157. 6030 [153]"CLRF1WAITSTOP-LISTE DES DEPENSES"
  158. 6040 [153]"CLRF2WAITSTOP-AJOUTER DES DEPENSES"
  159. 6050 [153]"CLRF3WAITSTOP-MISE A JOUR DES DEPENSES"
  160. 6060 [153]"CLRF4WAITSTOP-SAUVER LISTE DES DEPENSES"
  161. 6070 [153]"CLRF5WAITSTOP-DETRUIRE DANS LA LISTE"
  162. 6080 [153]"CLRF6WAITSTOP-OPTIONS D'ECRAN"
  163. 6090 [153]"CLRF7WAITSTOP-CHARGER/TRIER LES FICHIERS"
  164. 6100 [153]"CLRF8WAITSTOP-IMPRESSION DES DEPENSES"
  165. 6110 [153]"CLR QWAITSTOP-FIN"
  166. 6999 [142]
  167. 7000 [143] CHARGEMENT/TRI
  168. 7010 [153]"LOADCHARGER/TRIER"
  169. 7020 [153]"FICHIER DEPENSES"
  170. 7030 [133]"CHARGER OU TRIER (C/T)";AN$
  171. 7040 [139]AN$[178]"C"[167]MX[178]0:[141]400:[137]7999
  172. 7050 [139]AN$[178]"*FIN"[167][141]6000:[142]
  173. 7060 [139]AN$[179][177]"T"[137]7030
  174. 7070 [153]"TRI"
  175. 7080 [133]"NOM FICHIER";F$
  176. 7090 [139]F$[178]"*FIN"[167][141]6000:[142]
  177. 7120 [159]1,8,2,"0:"[170]F$[170]"SEQ,READ"
  178. 7130 [132]1,T1
  179. 7140 [129]T2[178]1[164]T1
  180. 7150 [132]1,Y,T3$,T4
  181. 7160 [129]J[178]1[164]MX
  182. 7170 [139]A$(J)[178]T3$[167]AE(J)[178][181](((AE(J)[170]T4)[173]2)[172]100)[173]100:T3$[178]""
  183. 7180 [130]J
  184. 7190 [139]T3$[179][177]""[167]MX[178]MX[170]1:A$(MX)[178]T3$:AE(MX)[178]T4
  185. 7200 [130]
  186. 7210 [160]1
  187. 7999 [141]500:[141]300:[141]6000:[142]
  188. 8000 [143] IMPRESSION SUR PAPIER
  189. 8005 [159]4,4:[157]4
  190. 8010 [139](I[179]1)[176](I[177]MX)[167]I[178]1
  191. 8020 [152]4,"      LISTE DES DEPENSES      "
  192. 8030 [129]J[178]I[164]I[170]19
  193. 8040 [139]J[177]MX[167][152]4,"":[137]8085
  194. 8050 PR$[178][196](AE(J)[170].001):PR$[178][202](PR$,2,([195](PR$)[171]2))
  195. 8055 [139]AE(J)[178]0[167]PR$[178]"0.00"
  196. 8060 J$[178][202]([196](J),2)
  197. 8061 B[178]20[171][195](A$(J))
  198. 8062 [139] B[178]0 [167] B$[178]""
  199. 8063 [139] B[178]1 [167] B$[178]" "
  200. 8064 [139] B[178]2 [167] B$[178]"  "
  201. 8065 [139] B[178]3 [167] B$[178]"   "
  202. 8066 [139] B[178]4 [167] B$[178]"    "
  203. 8067 [139] B[178]5 [167] B$[178]"     "
  204. 8068 [139] B[178]6 [167] B$[178]"      "
  205. 8069 [139] B[178]7 [167] B$[178]"       "
  206. 8070 [139] B[178]8 [167] B$[178]"        "
  207. 8071 [139] B[178]9 [167] B$[178]"         "
  208. 8072 [139] B[178]10 [167] B$[178]"          "
  209. 8073 [139] B[178]11 [167] B$[178]"           "
  210. 8074 [139] B[178]12 [167] B$[178]"            "
  211. 8075 [139] B[178]13 [167] B$[178]"             "
  212. 8076 [139] B[178]14 [167] B$[178]"              "
  213. 8077 [139] B[178]15 [167] B$[178]"               "
  214. 8078 [139] B[178]16 [167] B$[178]"                "
  215. 8079 [139] B[178]17 [167] B$[178]"                 "
  216. 8080 [139] B[178]18 [167] B$[178]"                  "
  217. 8081 [139] B[178]19 [167] B$[178]"                   "
  218. 8082 [139] B[178]20 [167] B$[178]"                    "
  219. 8084 [152]4,"     ";J$;"     ";A$(J);B$;"     ";PR$
  220. 8085 [130]J
  221. 8090 TA$[178][196](TA[170].001)
  222. 8100 TA$[178][200](TA$,[195](TA$)[171]1)
  223. 8110 [139]TA[178]0[167]TA$[178]"0.00"
  224. 8120 [152]4:[152]4:[152]4," TOTAL "TA$
  225. 8130 [160]4
  226. 8999 [142]
  227. 9000 [143] FIN DU TRAVAIL
  228. 9010 [153]"LOADFIN DU PROGRAMME"
  229. 9020 [153]"VOULEZ-VOUS SAUVER (O/N)":[133] AN$
  230. 9030 [139]AN$[178]"*FIN"[167][141]6000:[142]
  231. 9040 [139]AN$[178]"N"[167][137]9060
  232. 9050 [141]4000
  233. 9060 [153]"LOADMERCI"
  234. 9070 [153]"FIN"
  235. 9080 [128]
  236.